#!/usr/bin/perl
# delete_log.cgi

require './mdmhistory-lib.pl';
&ReadParse();
my $file=$config{'mdmlogfile'};
truncate $file,0;
&redirect("index.cgi");
